home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / general / ArrayedCollection.st < prev    next >
Text File  |  2002-10-27  |  4KB  |  140 lines
  1. " --------------------------------------------------------------- "
  2. " Added the with: methods on 04-Apr-2002.                         "
  3. " --------------------------------------------------------------- "
  4.  
  5. Class ArrayedCollection :SequenceableCollection
  6. ! current !
  7. [
  8.     = anArray         ! i !
  9.       (self size ~= anArray size) 
  10.          ifTrue: [^ false]. 
  11.             
  12.       i <- 0.
  13.  
  14.       self do: [:x | (x ~= (anArray at: (i <- i + 1)))
  15.                                         ifTrue: [^ false]
  16.                ].
  17.       ^ true
  18. |
  19.     at: key ifAbsent: exceptionBlock
  20.       ((key <= 0) or: [key > self size])
  21.          ifTrue: [^ exceptionBlock value].
  22.  
  23.       ^ self at: key
  24. |
  25.     coerce: aCollection      ! temp !
  26.       temp <- self class new: aCollection size.
  27.  
  28.       temp replaceFrom: 1 to: aCollection size with: aCollection.
  29.  
  30.       ^ temp
  31. |
  32.     copyFrom: start to: stop       ! size temp !
  33.       size <- stop - start + 1.
  34.       temp <- self class new: size.
  35.       temp replaceFrom: 1 to: size with: self startingAt: start.
  36.       ^ temp
  37. |
  38.     currentKey
  39.       ^ current
  40. | 
  41.     deepCopy ! newobj !
  42.       newobj <- self class new: self size.
  43.  
  44.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) copy ].
  45.  
  46.       ^ newobj
  47. |
  48.     do: aBlock
  49.       (1 to: self size) 
  50.           do: [:i | current <- i. 
  51.             aBlock value: (self at: i)]
  52. |
  53.     first
  54.       current <- 1.
  55.       ^ (current <= self size) 
  56.          ifTrue: [ self at: current]
  57. |
  58.     firstKey
  59.       ^ 1
  60. |
  61.     lastKey
  62.       ^ self size
  63. |
  64.     next
  65.       current <- current + 1.
  66.       ^ (current <= self size) 
  67.          ifTrue: [ self at: current]
  68. |
  69.     padTo: length
  70.       ^ (self size < length)
  71.           ifTrue: [ self , (self class new: (length - self size) ) ]
  72.          ifFalse: [ self ]
  73. |
  74.     shallowCopy ! newobj !
  75.       newobj <- self class new: self size.
  76.  
  77.       (1 to: self size) do: [:i | newobj at: i put: (self at: i) ].
  78.  
  79.       ^ newobj
  80. |
  81.     with: anObject ! newCollection !
  82.       " Answer a new instance of ArrayedCollection, containing only anObject."   
  83.          
  84.       newCollection <- self new: 1.   
  85.  
  86.       newCollection at: 1 put: anObject.   
  87.  
  88.       ^ newCollection 
  89. | 
  90.     with: firstObject with: secondObject ! newCollection !
  91.       " Answer a new instance of ArrayedCollection, containing firstObject
  92.       * and secondObject.
  93.       "
  94.       newCollection <- self new: 2.
  95.  
  96.       newCollection at: 1 put: firstObject.   
  97.       newCollection at: 2 put: secondObject.   
  98.    
  99.       ^ newCollection 
  100. | 
  101.     with: firstObject with: secondObject with: thirdObject ! newCollection !
  102.       " Answer a new instance of ArrayedCollection, 
  103.       * containing only these three objects.
  104.       "   
  105.       newCollection <- self new: 3.   
  106.      
  107.       newCollection at: 1 put: firstObject.   
  108.       newCollection at: 2 put: secondObject.   
  109.       newCollection at: 3 put: thirdObject.   
  110.      
  111.       ^ newCollection 
  112. | 
  113.     with: firstObject with: secondObject with: thirdObject with: fourthObject    
  114.       ! newCollection !
  115.      
  116.       " Answer a new instance of ArrayedCollection, containing the four
  117.       * arguments as the elements.
  118.       "   
  119.       newCollection <- self new: 4.   
  120.      
  121.       newCollection at: 1 put: firstObject.   
  122.       newCollection at: 2 put: secondObject.   
  123.       newCollection at: 3 put: thirdObject.   
  124.       newCollection at: 4 put: fourthObject.   
  125.      
  126.       ^ newCollection 
  127. |     
  128.     withAll: aCollection ! newCollection index !
  129.       " Answer a new instance of this class, whose elements are 
  130.       * the elements of aCollection. 
  131.       "   
  132.       newCollection <- self new: aCollection size.   
  133.       index         <- 0.   
  134.      
  135.       aCollection do: [:element | newCollection at: (index := index + 1)
  136.                                                put: element ].   
  137.      
  138.       ^ newCollection 
  139. ]
  140.